<!--#include file="Ini.asp" -->

<%

Set Conn = Server.CreateObject("Adodb.Connection")
Conn.Open sCo1, sCo2, sCo3
ssql="UPDATE DIGITA SET ATIVO='N' WHERE DIGITADOR='" & UCASE(MID(Session("Usuario"),1,3)) & "' OR CODIGO='" & Session("Usuario") & "'"
Conn.Execute(ssql)

session.abandon
If IsObject(rs) then
   rs.Close : Set rs = Nothing
End If
If IsObject(Conn) then
 Conn.Close : Set conn = Nothing
End If
Response.Clear
Response.redirect "menu.asp"

%>